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000000 PPPPPPPP cccccccc CCCCCCCC §=RRRRRRRR AAAAAA SSSSSSSS_ HH HH 
000000 PPPPPPPP ccccccce CCCCCCCC § =RRRRRRRR AAAAAA SSSSSSSS HH HH 

00 00 PP PP CC cc RR RR AA AA SS HH HH 

00 00 PP PP CC cc RR RR AA AA SS HH HH 

00 00 PP rr 6. cc RR RR AA AA SS HH HH 

00 00 PP PP CC cc RR RR AA AA SS HH HH 

00 00 PPPPPPPP cc cc RRRRRRRR Ab AA SSSSSS HHHHHHHHHH 

00 00 PPPPPPPP CC cc RRRRRRRR AA AA SSSSSS HHHHHHHHHH 

00 00 PP cc cc RR RR AAAAAAAAAA SS HH HH 

00 00 PP cc cc RR RR AAAAAAAAAA SS HH HH 

00 00 PP cc cc RR RR AA AA SS HH HH eee 

00 00 PP cc cc RR RR Ab AA SS HH HH cove 
000000 PP ccccccce CcCCCCCC SRR RR AA AA SSSSSSSS HH HH eee 
000000 PP ccccccce CCCCCCCC «RR RR AA AA SSSSSSSS HH HH eves 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ae PORRT ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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3 FACILITY: 

; VAX/VMS OPERATOR COMMUNICATIONS PROCESS 
j ABSTRACT: 

CRASH SYSTEM WITH BUG CHECK 

AUTHOR: R.HEINEN 12-JUN-78 (V06) 

MODIFIED BY: 

V03-005 DwT0226 David W. Thiel 24-Jul-1984 

; Correct wait for moet red page flush. 

; Improve addressin 

: Remove quorum dis cheek’ when dismounting system disk. 

V03-004 PRB0329 L Beck 11-Apr-1984 1:20 

3 Don't dismount systen disk if it's also the cluster 

; quorum disk and its votes are needed to maintain the quorum. 
‘ 


v03-003 DWT0205 David W. Thiel 05-Apr-1984 
Update interface for quorum adjustment. 


v03-002 PRBO323 Paul Beck 11-Mar-1984 16:17 
Add support for slustersutée shutdown and for quorum reduction 
when a cluster node is permanently removed from the cluster. 


v03-001 KDM000 Kathleen D. Morse 28-Jun-1982 
Added PRDEF. 
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=~ CRASH SYSTEM IMAGE 


1 
; We must cause the caches for the system disk(s) to be flushed. This is. 
; done by assi pine a channel, marking the volume for dismount, and issuing 
; @ dismount Q10. We also set the unload bit in each UCB according to the 

; unload flag provided from the shutdown procedure. If the system disk is a 
3; volume set, do this for all the volumes. The channel is assigned by hand, 
3; to circumvent any logical name screw-ups that could get in the way. 


B 3 
OPCCRASH == CRASH SYSTEM IMAGE 16-SEP-1984 01:59:5 AX/VMS Ma v04-00 P 
Oe co08 CRASH SYSTEM ROUTINE g- Sen 19 4 §3:33:2 OPCOM.SRC OPCCRASH.MAR: 1 eet a : 
1 73 -SBTTL CRASH SYSTEM ROUTINE 
0000 6 oe — -PSECT OPCOM_CRASH,NOWRT | 
8 6 ; THIS IMAGE IS RUN TO CRASH THE SYSTEM WITH A BUGCHECK | j 
i £8 FUNCTIONAL DESCRIPTION: | 3 
000 80 : INPUTS: 3 
00 1 3 3 
4 ¢ 3 NONE 3 
80 4 : OUTPUTS i 
$00 5: : 
44 § 3 NONE 
00000000 8 i PSECT OPCOM_CODE,PAGE 3 
0000 89 ‘ALIGN PAGE ~ 3 
0000 90 ; 3 
44 $3 ; MESSAGE TO PRINT | ; 
> | 
65 72 20 72 6F 74 61 72 65 70 4F 00° 0000 93 CRASH_MESSAGE: .AS / h 3 
6? % $0 ie of re Ot oe 3 ro $e 90° B0n0 ¢ MESSAGE CIC /Operator requested system shutdown/ | ; 
E 77 6F 64 74 75 68 73 20 6D 22 0900 | ; 
000000 002 94 CHANNEL: -BLKL 1 3 channel ber for di t Q10' 3 
E55 24 43 50 4F 0000002F *010E0000" 0927 95 UNLOAD: TASCID 'OPCSUNLOAD' —; Logical name of unload flag | 3 
45 52 24 43 50 4F aeeees Ym ie Ooz9 96 REBOOT: -ASCID ‘OPC$REBOOT' ; logical name of reboot flag 3 
4C 43 24 43 50 4F 00000053°010E0000" 0048 97 CLUSTER_SHUT: -ASCID ‘OPCS TER_SHUTDOWN' ; Logical f cl hutd 3 
tt da $4 $8 2b Se Sr eso as Sa 53 3 0059 % CLUSTER_ ogical name of cluster shutdown ; 
45 52 24 43 50 4F 0909006 9100000" 0067 98 CLUSTER_REMOVE: .ASCID ‘OPCSREMOVE_NODE* ; Logical name of remove node from cluster 
45 46 GF GE SF 45 56 4F 4D 0075 | 
00000004 QO07E 99 NAMDESC: -LONG 4 ; descriptor for result string 
02900086" 0082 100 ADDRESS NAMBUF 
0000008A Bnet 19] NAMBUF -BLKL 1 : buffer for unload flag 
GOsA 108 : Define timer for 1/10 second | 
FFFFFFFF FFFOBDCO OBA 19s ONE_TENTH: -LONG -1*1000*1000*1, -1 | 
09 107 | 
0000 43 198 -ENTRY CRASH, “*M<> 
9 1 SCMKRNL_S B*10$ ; GOTO KERNEL MODE 
04 O0A 110 RET 
OA1 111 
OA We 
0000 OO0A 11 0$: ~WORD “M<> 
OA 114 ; 
BoA 115 
OA 138 
OOA 11 
A 113 
AB 2 
139 


esse 
WWW 


OPCCRASH == CRASH SYSTEM IMAGE 16-SEP-19 9:5 AX/VMS Macro V04-00 Page 4 
oO4s008 CRASH SYSTEM ROUTINE g-3EF 1982 9 3:33: 23 YOPCOM SRE OPCCRASH.MAR; 1 . (2) | 
00000000'GF 1 A 1 JSB G* 1OCSFF CHAN : get an available channel number 
69 50 eS n3 1 g BLBC RO. 808 : % no channel, tough luck 
FF72 CF 1 at 124 MOVW R1, CHANNEL : store channel ee 
09 A2 1 B 125 MOVB #1 CCBSB KMoD (R2) ; and mark in u 
50 FF GE i BS 1 § MOVAQ UNLOAD,RO ; get address of “oP CSUNLOAD string 
120A 30 OOBA 1 BSBW GET FLAG : get the boolean value of OPCSUNLOAD 
SA 0 oO BD 128 MOVL RO,R1 ; Save the value | 
51 00000000°GF oD C0 129 MOVL  G*EXESGL_SYSUCB,R1 i get systen gue Wi? 
29 4 Al OD C7? 130 MOVL UCBSL_VCB(RT) .RO i get VCB address... 
5 0 a0 00 O00CB 131 MOVL  VCBSLZRVT(RO),R ; to get RVT address | 
55 a. Se Oe 3 ¢ MOVL #1,R ; assume 1 volum 
4 064 Bpe 1 CLRL R4 : Gyeer, loop and. RVT index 
53 1 D1 D4 134 CMPL R1,R3 ; f RVT eq 
09 13. 0007 + 135 BEQL ; then this = 3 a volume set 
55 OBA 9A 0009 136 MOVZBL RVTSB_NVOLS(R3),R5 ; get count of volumes 
51 46 A344 09 00DD 137 308: MOVL RVT$L “Hebe St RSS ERG, R1 ; et next UCB address 
13 QOOE2 138 BEQL 7 : ranch if not mounted 
01 OC A £0 it 139 40$: INSV R10 oueGey tila) ; set the unload bit accordingly 
64 Al 0&8 140 ucagu ; 
62 51 DO OOEA 141 MOVL tit tee (R2) 3; “‘assign’’ the channel 
00 38 Al 4615 E2 OO0ED 136 BBSS aDEVS $v DAT. UCBSL DEVCHAR(R 3° 605 ; mark volume for dismount | 
OOF2 14 08: $Q10W_S CHAN=CRANNEL,FUNC=#10$_ACPCONTROL ! 103M. DMOUNT 
C854 55 FZ ONT 144 708: AOBLSS” RD.R4, 308 ; loop through"RVT 
B1i2 198 é SET THE REBOOT FLAG DEPENDING ON THE BOOLEAN VALUE OF OPCS$REBOOT. | 
50 FF20 CF 7E 0115 148 BOS:  movaa REBOOT . RO ; get Lognam descriptor address | 
A 30 QO11A 149 BSBW ET_FLAG ; get the value of OPCS$REEBOT 
01 , FO 011D 150 INSV RO SA FEXESV BUGREBOOT, a", 73 set the system reboot flag accordingly 
00000000 ' GF 01 i 131 G*EXESGL_FLAGS 
4 6 138 ; WRITE MODIFIED PAGE LIST AND 
: 138 ; WAIT FOR IT TO COMPLETE 
5 
7E oc 6} 6 156 MOVPSL -(SP) 3; RESUME PSL MUST r ON STACK 
0128 157 SETIPL 6*140$ ; RAISE T? IPL SYNCH | 
00000000 ' GF D4 012C 158 CLRL G*SCHSGL YLIM 3; FORCE SWAPPER ACTIVITY 
00000000'GF 04 01 ; 159 CCRE | G*SCH$eL “HEYCOLIM : 
54 00000000 ' GF 0 4 160 MOVL G*SCHS$GL~ CURPCB,R4 ; PCB ADDRESS 
C 135F 161 MOVZWL #RSNS A Y,RO 3; EVENT = Wee PAGE LIST EMPTY | 
00000000 ' GF 16 O18 19¢ JSB G*SCHSRW 3; WAIT FOR EVENT 
014 164 ; If we're in a cluster, test for two special cases: 
138 165 ; 1. Cluster-wide shutdown. 
1? 198 3 2. Node being removed from cluster necessitating quorum reduction. 
00000000 ° GF 0 108 168 100$: TSTL G*CLUSGL_CLUB ; Are we A, VAXc luster? 
1 1 14 19? BEQL 109$ : if 
50 FEF? CF 43 15 170 MOVAQ CLUSTER_SHUT,RO ; get lognan’ descriptor addres 
OO8F 3 15 171 BSBW GET FLAG : ye ge the value of PCSCLUSTER. _ SHUTDOWN 
i4 50 8 158 76 BLBS . : S, a cluster shutdoun 
50 FFO8 CF — 0158 17 MOVAQ CLUSTER_REMOVE,RO ; get Lognane Coser ips or add 
084 38 199 174 BSBW GET FLAG 3; get the value of 0 CSCLUSTER. SREMOVE 
2350 € 192 179 BLBS RO, 2008 ; If LBS, removing node: reducé quorum 
166 199 3; BUG CHECK SYSTEM 
166 178; 


: 
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AAA ALA III 


dD 3 
vOs-000" CRASH S "$r$EP-1986 02:29:48 EOPCUM: sRCSOPCERASH- toate 


500s: 


H E 
YSTEM R -§ 4 OPCOM. SRC JOPCCRASH.MAR; 1 
66 79 109$: SETIPL 68*110$ 3; LOCK OUT INTERRUPTS 
6A BUG_CHECK OPERATOR,TYPE=FATAL ; CRASH THE SYSTEM 
1F oF 1108: -BYTE IPLS$_POWER ; END OF CODE THAT RUNS AT ELEVATED IPL 
F : tee CLUSTER“WIDE SHUTDOWN *t 
F 1208: SETIPL 8*140$ ; Make sure code won't page at SYNCH 
4 ; First, notify the connection manager that this is a cluster-wide shutdown. 
Q00000000'GF 16 4 ; JSB G*CNXSSHUTDOWN 3: Inform cnx man 
; The connection manager will tell all other nodes that we are shutting down. 
79 ; Other nodes will do the same; as they do, CSBSV_SHUTDOWN gets set. When 
2 ; this flag is set for all active nodes in the cluster, we're done. 
9 : Fortunately, the connection manager does all that, including the bugcheck. 
8 ; ALL we have to do is give it room to breathe. 
9 : SETIPL #0 ; Desynchronize/allow paging 
§ 1308:  S$HIBER_S ; Wait for connection manager to crash 
yy wT BRB 1308 3 sce 
00000008 140$: «LONG IPL$_SYNCH ; End of locked page(s) 


#** REDUCE QUORUM, USING THIS NODE'S VOTES *** 


SETIPL 68*230$ : Synchronize with connection manager 
52 00000000°GF D0 MOVL G*CLUSGL_CLUB,R2 ; Get address of CLU 
51 10 A2. 00 MOVL § CLUBSL_LOCAL_CSB(R2),R1 : Get address of local CSB. 


We have located the CSB for this node. Use its votes to calculate 
a new value for Quorum. 


MMO LSOOCWOODOMOOfsoOOOWOOUN 


SOOOCOOSOOSOOOOOOOCOCOCOOOCO COCO OCOOCOOOOCOCOOCOOOOCOCOOCOOOOCOOOOOOOOOOO 


0 
0 
0 
0 
0 
0 
0 
0 
0 
1 
1 
: 
13 New quorum calculation: Q* = (2041-V)/2 
51 50 Al C 16 MOVZWL CSB$W_VOTES(R1),R1 H 
50 20a2 3¢ 1 MOVZ2WL CLUBS@ QUORUM(R2),RO : Q 
50 50 01 78 1 ASHL #1,R0,R0 3 20 
50 06 1 INCL R 3 20+1 
50 51 ce SUBL2 R1,R0 3 2Q+1-V 
51 50° FF BF ASHL #-1,R0,R1 > R1 = new quorum 
: Tell the connection manager to set a new quorum. The connection manager 
AE 3 must handle this since it is done in a coordinated fashion across the 
ry 5 ; cluster. The quorum value is passed in R1. 
00000900" ¢F 16 AF ; : JSB G*CNXSCHANGE _QUORUM ; Set new active quorum 
5 50 ©b0 HA 8 MOVL RO,R3 ; Save status -- failure means try again lat 
44 : Wait for the connection manager to effect the change (CLUBSV_ADJ_QUORUM flag) 
4 ¢ ; SETIPL #0 ; Desynchronize/allow paging 
BA 4: At this point, we wait in kernel mode for a short time, then test to see 
BA 5 ; if the connection manager has completed its work. 
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MAGE 1 4 Q1: AX/VMS Macro V04-00 Page 
INE 878Ep= 1582 b2:29:4% Lopcumssmeiopcerasceman:1 29° <8) 
10$: SSETIMR_S - ~~ a tick 
efn = 5 gereet SYSEFN = ++ ,use system event flag 
Gays ia. = ONE_TENTA 3 «+-Shouldn’t be perceptible 
BLBC 208 S wee 
SWAITFR_ 
efn = S*MEXESC_SYSEFN ; Wait a tick 
BLBC RO,2208 3 ses 
BLBC R3,2008 ; Branch if a retry is required 
BBS #cuBsy ADJ _ QUORUM :; If BS, not done y 
CLUBSL_ FLAGS(R2) , 2108 
20$: BRW 109 ; BugCheck 
30$: .LONG IPL$_SYNCH ; End of page locking. 
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BSEp=1984 O2:59:45 LOPCOM SRESOPCCRASH MAR;1 “29° (4) 


p++ 

; GET_FLAG 

Functional description: 
This routine will translate a given logical name, and return a 
status code that witl reflect whether the logical name was set 


to the DCL equivalent of the boolean condtion TRUE. To wit, if 
the logical name translates to a string that begins with a ‘'T'’, 
, or 


a. 1", then return a success status. 
Input: 

RO = address of the logical name descriptor 
Output: 

None. 


Implicit output: 


The output buffer described 7 the RSLBUF parameter to the $TRNLOG 
systes service will contain the (possibly truncated) translation of 
the input logical name. Only the first character is significant. 


NOUS WN CO ODNAUMUE WI" OWOOweursumr OF 


Routine value: 


sooo 


The low bit of RO will reflect the boolean value of the logical name. 


MMM DOP LOM DS OLN ODS 9 WN 
SOOOOOOOO0 OOOO OO 00609 09 09 69 69 09 09 69 09 SI INI NSI NS SN NIA AAAAPAAAOOMMIUIUIUIVIVTN TN 


| 

? Note that if the logical name is not defined, then the value is false. | 
: GET_FLAG: | 
4 STRNLOG_S LOGNAM=(RO),- ; Translate the logical name 
5 RSLBUF=NAMDESC (only the first 4 bytes are returned) 

50 €9 6 BLBC RO,13$ 3; Exit if error 

BF BI 7 CMPW =: #S$$_NOTRAN,RO : Did the name translate? 

§ 13 8 BEQL 13$ ; Exit if_no translation 

1 00 MOVL #1,R0 3; Assume TRU 
CF «OA 0 MOVZBL NAMBUF ,R1 ; Get the first byte of the string 
8F 91 1 CMPB #*A/Y/,R1 ; Is it a ‘'Y'? 

19 13 § BEQL 14 3 

8F 9 CMPB #*A/y/,R1 3; Is it a “'y'"? 
a7 ws 4 BEQL 4 3 , 

+ 91 5 CMPB #*A/T/,R1 :; Is is a ‘Tt’? 

2?) ae $ BEQL 14 ; 
8F 91 CMPB #*A/t/,R1 3: Ie tt o “e"? 
9 13 3 BEQL 3 

1 91 CMPB ss #*A/1/,R1 ie teo 3 | 
96 13 0 BEQL 14$ ; ’ 

D4 1 13$: CLRL RO ; Indicate FALSE 
05 § 14$: RSB ; Return | 
4 
5 END CRASH 
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Symbol table -SEP-19 :4 (3) | 


OPCOM. SRC JOPCCRASH.MAR; 1 


< 
Oo 
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$$11 = 00000000 RVTSB_NVOLS = 9000 08 ; 
BUG$_OPERATOR aeeerere § X (04 RVTS$L-UCBLST z 44 3 
CCB$6_AMOD = 9 SCHSGC_CURPCB aeereree =X 4 | ; 
CCBSL “UCB = 9 SCHSGL_MFYLIM aeeeeeee = 4 ; 
CHANNEL a o% SCHSGL-MFYLOLIM eeenerer =X 4 $ 
CLUSGL_CLUB eeeeenee =X 4 SCHSRWAIT eeeeneee§ X 04 ; 
CLUBSL-FLAGS = 0000001 SS$_NOTRAN aeeeeeee =X 4 ; 
CLUBSL-LOCAL_CSB = 1 STV-TIMER 00000000 : 
CLUB$V"ADJ_Q0 = 1 SYSSCMKRNL eeeeener GX 0% | : 
CLUBSW~ QUORUM = 9 2 SYSSHIBER eeeeneee GX 4 : 
CLUSTER_REMOVE 000067 R 4 $Y¥S$Q10W aeeenere GX 04 ; 
CLUSTER SHUT 0000048 R 4 SYSSSETIMR aeenenee GX 04 : 
CNXSCHANGE QUORUM eeeeeeee =X 4 SYSS$TRNLOG aeeeeeee GX 4 : 
CNXSSHUTDOON eeeeeeee =X 4 SYSSWAITFR aeeeeeee GX 04 : 
CRASH 0000092 RG 04 UCBSL_DEVCHAR = 00000038 ; 
CRASH_MESSAGE 0000000 R 04 UCBS$L_VCB = 00000034 3 
CSBSW_VOTES = 0000005 UCB$V_UNLOAD = 9900000¢ : 
DEV$V_DMT = 0000001 UCBSW"STS = 00000064 ; 
EXESC”SYSEFN eeneeeee =X = (04 UNLOA 00000027 R 04 | : 
EXESGC_FLAGS eeeeeene§ =X = 06 VCBSL_RVT = 00000020 : 
EXESGL~SYSUCB eeneeeee§ X 04 : 
EXESV_BUGREBOOT eeerenee§ X 04 3 
GET_FCAG 000001E7 R 04 : 
10$A T = 00000400 : 
10$_ ACPCONTROL = 00000038 : 
10c$ Rkkew ete x 04 3 
IPL$_| = 0000001F : 
IPL$~SYNCH = 00000008 : 
MSG_ACCOUNT 00000028 3 
MSG_DEVCNT 00000010 : 
MSG_DEVNAME 9 49 3 
MSG_DEVUNIT 0 90000¢ : 
MSG_HDR 000000 : 
MSG_LINK 00000000 3 
MSG_MSG 4844 3 
MSG_NUMBER 0000 Bg 3 
MSG_PRI 000000 : 
MSG_PRIV 900001 3 
MSG_REPLYMBX 000000E : 
MSG_SIZE 90000¢¢ : 
$G_UIC 0000001 3 
MSG-USRNAME 000001C : 
F 9000 86 R 04 : 

Sc 9 09 ER 4 3 
ONE_TENT 0 8A R 4 3 
OPCSC_REPEAT = 00 5 : 
OPC$L~MS_MAXSZ = 0000009A | : 
OTv_ACTIVE = 9 0 | : 
OT_BESC 1 : 
OT_LINK 0 : 
OT" NAME 1 3 
OT” SERVICE ; : 
OT~STATUS : 
PRS_IPL = 1 3 
REBOOT 9 39 R 04 | 3 
RSNS_MPLEMPTY = 08 | : 

| 
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Psect synopsis “SEP-1984 02:29:4 OPCOM. SRC JOPCCRASH.MAR; 1 (3). 


teers om eee mec ocn we + | 


! ; Psect Synopsis : 


eee neem ee mea ewe 


ibe working set Limit was 1350 pages. 

5571 bytes (168 pages) of virtual memory were used to buffer the intermediate cod 

There were 90 pages of symbol table space allocated to hold 1678 non-local and 18 local symbols. 
402 source lines were read in Pass 1, producing 19 object records in Pass 2. 

33 pages of virtual memory were used to define 32 macros. 


SMSO RS TS SS ew me mw a Y 


| 
PSECT name Allocation PSECT No. Attributes | 
- 4ABS ., $° 00 ¢ 0.) 0¢ 0.) NOPIC  USR CON ABS LCL sat NOEXE NORD NOWRT NOVEC BYTE 
OPCOM_DEF 0 ( 204.) 1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SABSS 0 ( “O2) 02 ¢ 22) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE | 
OPCOM_CRASH ( m ( -) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
OPCOM_CODE O00022E (« 558.) 4 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC PAGE | 
bre rene eon ean een neem owe + | 
H Performance indicators ; | 
Phase Page faults CPU Time Elapsed Time 
Initialization 1e 00:00:00.06 00: 0:00.43 | 
Command processing a 8080-88 0: 897-08 
Pass 356 88 215. Ba: 8: 1.1 
Symbol table sort 0 0:00:0 98 0:0 83-60 
Pass 2 60 00:00:02. 00:00:07.04 | 
Symbol table output ] 00:00:00.11 00:00:00.18 
Psect synopsis output 3 OF BD: 0.03 00:00:00.03 
Cross-reference output 0:00: 9-99 es Bee 
Assembler run totals 536 00:00:21.74 00:01:13.12 
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Macro Library name Macros defined 
-$255$D0UA28 :TOPCOM. 0509) Tor com 18. -MLB;1 0 
-$ a2 SbuAc? 1 10 

$255 HATS EYSLIBISTARLET. MLB;2 19 

TOTALS <all Libraries) 29 


1846 GETS were required to define 29 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:OPCCRASH/OBJ=0BJ$:OPCCRASH MSRC$:ODEF /UPDATE=(ENHS:ODEF ) *MSRC$: OPCCRASH/UPDATE=(ENH$: OPCCRASH) +E XECML$/LIB+L IBS: OPCOM 
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